/!
DEFINE
	INTEGER: VarGlobInt, VarGlobInt2;
	STRING: VarGlobStr;
ENDDEFINE
!/


MAIN
{
	DEFINE
		INTEGER: VarInt, VarInt2;
		STRING: VarStr;
		INTEGER: VarInt3;
	ENDDEFINE

	VarInt = 0;
	
	WHILE(VarInt < 100)
	{
		VarInt = VarInt + (9A, 16) - (11011, 2);
	}
	
	IF(VarInt > 0) || (VarInt < 100)
	{
		PRINT("Dentro del IF ");
	}
	ELSE
	{
		PRINT("Dentro del else ");
	}
	
	VarInt2 = 30;
	
	IF(!INLIST(VarInt2, [0; 10; 30; 50]))
	{
		PRINT("El valor no esta en INLIST");
	}
	
	VarInt3 = 33;
	
	PRINT("Haciendo ROUND(");
	PRINT(VarInt3);
	PRINT("/");
	PRINT(VarInt);
	PRINT(").");
	PRINT(ROUND(VarInt2/VarInt));
	
	PRINT("Haciendo TRUNC(");
	PRINT(VarInt3);
	PRINT("/");
	PRINT(VarInt);
	PRINT(").");
	PRINT(TRUNC(VarInt2/VarInt));
	
	/! Comentario simple !/
	/!/!Comentario doble sin primer nivel!/!/
	/!comentario /!doble!/ con 2 niveles!/
	/!Comentario al principio/!doble sin final nivel 1.!/!/
	/!/!comentario doble  !/sin principio nivel 1!/
	/!/!!/!/
	
}
